(print_error_message): Don't crash if (cdr data) is not a list.

diff --git a/src/print.c b/src/print.c
index a24826f24c484bf90f9ee97268e719ec6f450132..69a3d68f42893adcd26c4acaf700bd0dfcb56bfc 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1054,7 +1054,7 @@ print_error_message (data, stream)
 
   /* For file-error, make error message by concatenating
      all the data items.  They are all strings.  */
-  if (!NILP (file_error) && !NILP (tail))
+  if (!NILP (file_error) && CONSP (tail))
     errmsg = XCONS (tail)->car, tail = XCONS (tail)->cdr;
 
   if (STRINGP (errmsg))